package Tega::StorageAPI;

# $Id: StorageAPI.pm 38 2010-11-12 11:54:10Z dolbanavt@googlemail.com $
# $Date: 2010-11-12 13:54:24 +0200 (Птн, 12 Ноя 2010) $
# $HeadURL: https://tegusigalpa.googlecode.com/svn/branches/storage_init/lib/Tega/StorageAPI.pm $
# $LastChangedRevision: 66 $

use base qw( JSON::RPC::Procedure );
use JIP::ToolSet;
use Carp qw( croak );
use English qw( -no_match_vars );
use Object::Container 'container';

our $VERSION = '0.0.1';

sub echo : Public {
    container('log')->Note('запрошен тестовый метод echo()')
        and return $ARG[1];
}

sub add_seen_action : Public {
    my $self = shift;

    return container('db_wrapper')->add_seen_action( %{ $ARG[0] } );
}

1;

__END__

=head1 NAME

Tega::StorageAPI

=head1 SYNOPSIS

    use Tega::StorageAPI;

    my $t = Tega::StorageAPI->new();

=head1 DESCRIPTION

Класс связывающий проект с подсистемой обслуживающей
главную базу данных.

=head1 DEPENDENCIES

JSON::RPC::Procedure (from CPAN)

JIP::ToolSet (from base_lib)

=head1 AUTHOR

Vladimir Zhavoronkov, <dolbanavt (at) Google Mail>

http://dolbanavt.livejournal.com/

=head1 LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

=cut
